home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Programming / fpc / compiler / ppovin.pas < prev    next >
Pascal/Delphi Source File  |  1998-09-24  |  2KB  |  74 lines
  1. {
  2.     $Id: ppovin.pas,v 1.1.1.1 1998/03/25 11:18:15 root Exp $
  3.     Copyright (c) 1997-98 by Daniel Mantione
  4.  
  5.     Handles the overlay initialisation for a TP7 compiled version
  6.  
  7.     This program is free software; you can redistribute it and/or modify
  8.     it under the terms of the GNU General Public License as published by
  9.     the Free Software Foundation; either version 2 of the License, or
  10.     (at your option) any later version.
  11.  
  12.     This program is distributed in the hope that it will be useful,
  13.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15.     GNU General Public License for more details.
  16.  
  17.     You should have received a copy of the GNU General Public License
  18.     along with this program; if not, write to the Free Software
  19.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20.  
  21.  ****************************************************************************
  22. }
  23. unit ppovin;
  24.  
  25. interface
  26.  
  27. var ovrminsize:longint;
  28.  
  29. implementation
  30.  
  31. uses    overlay;
  32.  
  33. var s:string;
  34.  
  35. begin
  36.     s:=paramstr(0);
  37.     ovrinit(copy(s,1,length(s)-3)+'ovr');
  38.     if ovrresult=ovrok then
  39.         begin
  40.             {May fail if no EMS memory is available. No need for error
  41.              checking, though, as the overlay manager happily runs without
  42.              EMS.}
  43.             ovrinitEMS;
  44.             ovrminsize:=ovrgetbuf;
  45.             ovrsetbuf(ovrminsize+$20000);
  46.         end
  47.     else
  48.         runerror($da);
  49. end.
  50. {
  51.   $Log: ppovin.pas,v $
  52.   Revision 1.1.1.1  1998/03/25 11:18:15  root
  53.   * Restored version
  54.  
  55.   Revision 1.5  1998/03/10 01:17:24  peter
  56.     * all files have the same header
  57.     * messages are fully implemented, EXTDEBUG uses Comment()
  58.     + AG... files for the Assembler generation
  59.  
  60.  
  61.   Pre CVS Log:
  62.  
  63.   FK     Florian Klaempfl
  64.   DM     Dani‰l Mantione
  65.   +      feature added
  66.   -      removed
  67.   *      bug fixed or changed
  68.  
  69.   12th October 1997:
  70.         Rewritten (DM).
  71. }
  72.  
  73.  
  74.